home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / ucall19.lha / ucall / Script / znetz.login < prev    next >
Text File  |  1995-08-06  |  3KB  |  149 lines
  1. ; Z-Netz Loginscript
  2. ; made by lunqual%mab@wsb.freinet.de
  3.  
  4. ; ein paar Variablen ersma
  5. ; Der Username muss bei Z3.8 ZERBERUS heissen, 
  6. ; bei ZCONNECT dagegen JANUS
  7.  
  8.  
  9. ; Konfiguration anzeigen
  10. gosub showconfig
  11.  
  12. ; Variablen setzen
  13. set nummer        =ATDP 07631 14115\r\n
  14. set username      =ZERBERUS\x0d\x0a
  15. set systemname    =LUNQUAL\r\n
  16. set passwort      =hehehe\r\n
  17. set download_dir  =work2:theanswer/download
  18. set upload_dir    =work2:theanswer/upload
  19.  
  20. set protocolfile  =ucall.protocol
  21.  
  22. ; protokollfile öffnen
  23. gosub startprotokoll
  24.  
  25. ; Anwahlpause 60 Sekunden
  26. pause 60
  27.  
  28. ; Login mitlesen
  29. showlogin con:0/0/640/200/Zcall-Login
  30.  
  31. ; Timeout 60 sekunden
  32. timeout 60
  33. timeout_label
  34.  
  35. ; Abfrage ob bereits ein Timeout aufgetreten ist
  36. ifflag 2 msg ($time) Timeout aufgetreten\x0a,clearflag 2
  37.  
  38.  
  39. ; Verzeichnisse leerräumen
  40. gosub zielverzeichnis räumen
  41.  
  42. gosub modeminit
  43.  
  44. protmsg ($time) Anwahl Markgräfler Amiga Box\n
  45. connect $nummer
  46. msg Warte auf Username\n
  47. protmsg ($time) CONNECT\n
  48. wait Username:
  49. msg \x1b[2mSende username\x1b[0m\n
  50. send $username
  51.  
  52. msg Warte auf Systemname\n
  53. wait Systemname:
  54. msg \x1b[2mSende Systemname\x1b[0m\n
  55. send $systemname
  56.  
  57. msg Warte auf Passwort\n
  58. wait #?wort:
  59. msg \x1b[2mSende Passwort\x1b[0m\n
  60. send $passwort
  61. wait running
  62. msg Daten werden gepackt...\n
  63.  
  64. msg Warte auf Upload\n
  65. wait **b0#?\n
  66. msg \x1b[2mUpload Start\x1b[0m\n
  67. protmsg ($time) UPLOAD START\n
  68. workdir $upload_dir
  69. putfile caller.lha
  70. msg UPLOAD ENDE\n
  71. protmsg ($time) UPLOAD ENDE\n
  72. ifflag 0 msg Fehler beim Upload !\x0a,protmsg ($time) FEHLER beim Upload !\x0a
  73. protmsg ($time) INFO: $fileinfo\n
  74. msg ($time) File=$filename Größe=$filesize\n
  75.  
  76.  
  77. msg Warte auf Download\n
  78. msg \x1b[2mDownload Start\x1b[0m\n
  79. workdir $download_dir
  80. getfile called.lzh
  81. msg DOWNLOAD ENDE\n
  82. protmsg ($time) DOWNLOAD ENDE\n
  83. ifflag 1 msg Fehler beim Download !\x0a,protmsg ($time) FEHLER beim Download !\x0a
  84. protmsg ($time) INFO: $fileinfo\n
  85. msg ($time) File=$filename Größe=$filesize\n
  86. msg ($time) Netcall Ende\n
  87. protmsg ($time) Netcall Ende\n
  88. end
  89.  
  90.  
  91. label modeminit
  92. msg Sende Modeminit\n
  93. send ATZ\r\n
  94. wait $error,$ok
  95. if $error goto init_error
  96. msg \x1b[2mModem init ok\x1b[0m\n
  97. return
  98.  
  99.  
  100. label init_error
  101. msg Modeminit fehlerhaft !\n
  102. protmsg ($time) Modeminit Fehlerhaft !\n
  103. end
  104.  
  105.  
  106. label zielverzeichnis räumen
  107. workdir $upload_dir
  108. system delete caller.lha
  109. system lha a caller.lha puffer
  110. workdir $download_dir
  111. system delete #?.brt
  112. system delete #?.prv
  113.  
  114. return
  115.  
  116. label showconfig
  117.  
  118. getenv ks     =kickstart
  119. msg   -----------------------------------------\n
  120. msg   .           Konfiguration\n\n
  121. msg   Kickstart    = $ks\n
  122. msg   Programmstart :$date $time\n
  123. msg   ConfigFile   = $config\n
  124. msg   Scriptfile   = $script\n
  125. msg   Linebuffer   = $linebuffer\n\n
  126. msg   Device       = $device\n
  127. msg   Unit         = $unit\n
  128. msg   Baud         = $baud\n
  129. msg   Serialbuffer = $buffersize\n
  130. msg   Parameter    = $databits Datenbits\n
  131. msg   .              $stopbits Stopbits\n
  132. msg   Handshake    = $handshake\n
  133. msg   Parität      = $parity\n
  134. msg   Xpr-Library  = $xprlib\n
  135. msg   Xpr-Optionen = $xpropts\n
  136. msg   -----------------------------------------\n\n
  137. return
  138.  
  139.  
  140.  
  141. label startprotokoll
  142. protocol $protocolfile
  143. protmsg \n
  144. protmsg ----------------------------------\n
  145. protmsg *          NetCall               *\n
  146. protmsg * $date $time (Scriptstart)\n
  147.  
  148. return
  149.